1 REM *********************************       *     ZVIZA VERSION 2           *
2 REM *     ZEICHENSATZ FUER          *       *     VIZAWRITE (ENGL.)         *
3 REM *      BERTRAM HAFNER           *       *                               *
4 REM *********************************       *                               *
5 REM *     ZEILEN 225,235,245,       *       *     255,265,275 UND 285       *
6 REM *     VON GERD HECHTFISCHER     *       *                               *
7 REM *********************************
10 I=I+1:READA:IFA=-1GOTO12
11 POKE49200+I,A:GOTO10
12 POKE49200+I,1
15 POKE160,0:POKE161,0:POKE162,0           :REM TIMER AUF 0 STELLEN
20 POKE789,192                             :REM START DES MASCHINENPRG
30 LOAD"VIZAWRITE 64",8,1
100 DATA165,161,201,12,240,3,76,49,234,162,0,189,100,192,201,1,240,25,133,251
101 DATA232,189,100,192,133,252,232,160,0,189,100,192,145,251,232,200,192,8
102 DATA48,245,76,60,192,169,234,141,21,3,76,49,234
200 REM  NEUE ZEICHEN FUER BILDSCHIRM            ****************************
210 REM  EINGABEFORMAT DER 10 DATAS:             ZIELADR LOW,HI,8 BYTES
211 REM  BERECHNUNG DER ZIELADRESSE:             BC=BILDSCHIRMCODE DES ZU
212 REM  ERSETZENDEN ZEICHENS (SATZ 2)           ZIELADR=BC*8+56*256
213 REM  HI = INT(ZIELADR/256)                   LOW= ZIELADR-HI*256
220 DATA0,56,102,0,60,6,62,102,62,0         :REM KLEIN AE FUER @
225 DATA0,60,153,255,195,249,193,153,193,255   :REM REVERS-KLEIN AE
230 DATA224,56,102,0,60,102,102,102,60,0    :REM KLEIN OE FUER \
235 DATA224,60,153,255,195,153,153,153,195,255   :REM REVERS KLEIN OE
240 DATA216,56,102,24,60,102,126,102,102,0  :REM GROSS AE FUER [
245 DATA216,60,153,231,195,153,129,153,153,255   :REM REVERS GROSS AE
250 DATA232,56,51,102,102,102,102,102,60,0  :REM GROSS UE FUER ]
255 DATA232,60,204,153,153,153,153,153,195,255   :REM REVERS GROSS UE
260 DATA240,56,0,60,102,108,102,102,108,96  :REM SCHARF S FUER ^
265 DATA240,60,255,195,153,147,153,153,147,159: REM REVERS SCHARF S
270 DATA80,57,102,0,102,102,102,102,59,0    :REM KLEIN UE FUER *
275 DATA80,61,153,255,153,153,153,153,196,255: REM REVERS KLEIN UE
280 DATA240,58,0,0,3,62,118,54,54,0         :REM (null) FUER SHIFT ^
285 DATA 240,62,255,255,252,193,137,201,201,255: REM REVERS (null)
500 DATA-1:REM FLAG FUER ENDE